home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / FLOAT.P < prev    next >
Text File  |  1990-09-13  |  3KB  |  117 lines
  1. temp <- <primitive 110 25 >
  2. <primitive 112 temp 1        " truncated " \
  3.     #( #[ 32 48 199 247 6 32 250 1 73 248 5 242 32 250 1 \
  4.  72 243 245] \
  5.     #( 0.0  ) ) >
  6.  
  7. <primitive 112 temp 2        " sqrt " \
  8.     #( #[ 32 250 1 71 243 245] \
  9.     #(  ) ) >
  10.  
  11. <primitive 112 temp 3        " rounded " \
  12.     #( #[ 32 48 192 250 1 72 243 245] \
  13.     #( 0.5  ) ) >
  14.  
  15. <primitive 112 temp 4        " radix: " \
  16.     #( #[ 32 33 250 2 89 243 245] \
  17.     #(  ) ) >
  18.  
  19. <primitive 112 temp 5        " ln " \
  20.     #( #[ 32 250 1 70 243 245] \
  21.     #(  ) ) >
  22.  
  23. <primitive 112 temp 6        " integerPart " \
  24.     #( #[ 32 250 1 75 243 245] \
  25.     #(  ) ) >
  26.  
  27. <primitive 112 temp 7        " gamma " \
  28.     #( #[ 32 250 1 77 243 245] \
  29.     #(  ) ) >
  30.  
  31. <primitive 112 temp 8        " fractionPart " \
  32.     #( #[ 32 250 1 76 243 245] \
  33.     #(  ) ) >
  34.  
  35. <primitive 112 temp 9        " floor " \
  36.     #( #[ 32 250 1 72 243 245] \
  37.     #(  ) ) >
  38.  
  39. <primitive 112 temp 10        " exp " \
  40.     #( #[ 32 250 1 79 243 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 11        " coerce: " \
  44.     #( #[ 33 175 243 245] \
  45.     #(  ) ) >
  46.  
  47. <primitive 112 temp 12        " ceiling " \
  48.     #( #[ 32 250 1 73 243 245] \
  49.     #(  ) ) >
  50.  
  51. <primitive 112 temp 13        " asString " \
  52.     #( #[ 32 250 1 78 243 245] \
  53.     #(  ) ) >
  54.  
  55. <primitive 112 temp 14        " asFloat " \
  56.     #( #[ 32 243 245] \
  57.     #(  ) ) >
  58.  
  59. <primitive 112 temp 15        " arcTan " \
  60.     #( #[ 5 54 32 250 1 86 176 243 245] \
  61.     #(  ) ) >
  62.  
  63. <primitive 112 temp 16        " arcSin " \
  64.     #( #[ 5 54 32 250 1 84 176 243 245] \
  65.     #(  ) ) >
  66.  
  67. <primitive 112 temp 17        " arcCos " \
  68.     #( #[ 5 54 32 250 1 85 176 243 245] \
  69.     #(  ) ) >
  70.  
  71. <primitive 112 temp 18        " ^ " \
  72.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 88 248 5 242 \
  73.  32 33 145 0 243 245] \
  74.     #( #raisedTo:  ) ) >
  75.  
  76. <primitive 112 temp 19        " / " \
  77.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 69 248 5 242 \
  78.  32 33 145 0 243 245] \
  79.     #( #/  ) ) >
  80.  
  81. <primitive 112 temp 20        " * " \
  82.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 68 248 5 242 \
  83.  32 33 145 0 243 245] \
  84.     #( #*  ) ) >
  85.  
  86. <primitive 112 temp 21        " - " \
  87.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 61 248 5 242 \
  88.  32 33 145 0 243 245] \
  89.     #( #-  ) ) >
  90.  
  91. <primitive 112 temp 22        " + " \
  92.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 60 248 5 242 \
  93.  32 33 145 0 243 245] \
  94.     #( #+  ) ) >
  95.  
  96. <primitive 112 temp 23        " > " \
  97.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 63 248 5 242 \
  98.  32 33 145 0 243 245] \
  99.     #( #>  ) ) >
  100.  
  101. <primitive 112 temp 24        " < " \
  102.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 62 248 5 242 \
  103.  32 33 145 0 243 245] \
  104.     #( #<  ) ) >
  105.  
  106. <primitive 112 temp 25        " = " \
  107.     #( #[ 32 33 250 2 6 247 7 32 33 250 2 66 248 5 242 \
  108.  32 33 145 0 243 245] \
  109.     #( #=  ) ) >
  110.  
  111. <primitive 98 #Float \
  112.     <primitive 97 #Float #Number #\smalltlk\prelude\float.st \
  113.     #(  ) \
  114.     #( #truncated #sqrt #rounded #radix: #ln #integerPart #gamma #fractionPart #floor #exp #coerce: #ceiling #asString #asFloat #arcTan #arcSin #arcCos #^ #/ #* #- #+ #> #< #=  ) \
  115.     temp 2 4 > >
  116.  
  117.